perm filename PAST.SCR[M11,LCS] blob
sn#409415 filedate 1979-01-04 generic text, type T, neo UTF8
INS 0 1; < INSTRUMENT 1
ENV
;
ENV P4 P5 B2 DP7 DP8 DP9;
OSC B2 FP3 B2 P6 ;
OUT B2 B1;END;
SEG 2 0 1 1 8 1 10 .5 25 .5 50 0 75 0 100; <F2 ENVELOPE
GEN 0 2 4 .5 0 .3 0 .2 0 .1 7; < CLAR WAVE F4
SIN 1 1; <F1 SINE WAVE
SEG 5 1 1 1 50 ,-1 50.3, -1 100; <F5 SQUARE WAVE.
SRT←12800;
< PAST .SCR -- RANDOM NUMBER= 1
PLAY;
ENV 0.000 0.314 A 500.000 F2 F1 0.020 P2 0.070 0.900
;PRINT P1;< ENV 1
ENV 0.349 0.314 AS 1000.0 F2 F1 0.020 P2
;PRINT P1;< ENV 2
ENV 0.698 0.314 D*2 500.000 F2 F1 0.020 P2
;PRINT P1;< ENV 3
ENV 1.047 0.314 C*2 500.000 F2 F1 0.020 P2
;PRINT P1;< ENV 4
ENV 1.396 0.191 AS 500.000 F2 F1 0.020 P2 0.070 1.100
;PRINT P1;< ENV 5
ENV 1.570 0.157 A 500.000 F2 F1 0.020 P2 0.070 0.900
;PRINT P1;< ENV 6
ENV 1.744 0.314 G 1000.0 F2 F1 0.020 P2
;PRINT P1;< ENV 7
ENV 2.093 0.314 C 500.000 F2 F1 0.020 P2
;PRINT P1;< ENV 8
ENV 2.442 0.314 F 500.000 F2 F1 0.020 P2
;PRINT P1;< ENV 9
ENV 2.791 0.314 G 500.000 F2 F1 0.020 P2
;PRINT P1;< ENV 10
ENV 3.140 0.314 A 500.000 F2 F1 0.020 P2
;PRINT P1;< ENV 11
ENV 3.489 0.191 AS 500.000 F2 F1 0.020 P2 0.070 1.100
;PRINT P1;< ENV 12
ENV 3.663 0.157 A 500.000 F2 F1 0.020 P2 0.070 0.900
;PRINT P1;< ENV 13
ENV 3.837 0.628 G 1000.0 F2 F1 0.020 P2
;PRINT P1;< ENV 14
FINISH; < PAST .SCR